home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / java / spec.pas < prev    next >
Pascal/Delphi Source File  |  1996-04-08  |  6KB  |  262 lines
  1. unit Spec;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Buttons, ExtCtrls,PRINTERS;
  8.  
  9. type       
  10.   TForm5 = class(TForm)
  11.     Image1: TImage;
  12.     Memo1: TMemo;
  13.     Button1: TButton;
  14.     Button2: TButton;
  15.     Button3: TButton;
  16.     Button4: TButton;
  17.     Button5: TButton;
  18.     Button6: TButton;
  19.     Button7: TButton;
  20.     Button8: TButton;
  21.     BitBtn1: TBitBtn;
  22.     BitBtn2: TBitBtn;
  23.     Label1: TLabel;
  24.     Memo2: TMemo;
  25.     Timer1: TTimer;
  26.     procedure BitBtn1Click(Sender: TObject);
  27.     procedure Button2Click(Sender: TObject);
  28.     procedure Button1Click(Sender: TObject);
  29.     procedure Button3Click(Sender: TObject);
  30.     procedure Button4Click(Sender: TObject);
  31.     procedure Button5Click(Sender: TObject);
  32.     procedure Button6Click(Sender: TObject);
  33.     procedure Button7Click(Sender: TObject);
  34.     procedure Button8Click(Sender: TObject);
  35.     procedure BitBtn2Click(Sender: TObject);
  36.     procedure FormShow(Sender: TObject);
  37.     procedure Timer1Timer(Sender: TObject);
  38.     procedure BitBtn2MouseMove(Sender: TObject; Shift: TShiftState; X,
  39.       Y: Integer);
  40.     procedure BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
  41.       Y: Integer);
  42.     procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  43.       Y: Integer);
  44.     procedure Button2MouseMove(Sender: TObject; Shift: TShiftState; X,
  45.       Y: Integer);
  46.     procedure Button3MouseMove(Sender: TObject; Shift: TShiftState; X,
  47.       Y: Integer);
  48.     procedure Button4MouseMove(Sender: TObject; Shift: TShiftState; X,
  49.       Y: Integer);
  50.     procedure Button5MouseMove(Sender: TObject; Shift: TShiftState; X,
  51.       Y: Integer);
  52.     procedure Button6MouseMove(Sender: TObject; Shift: TShiftState; X,
  53.       Y: Integer);
  54.     procedure Button7MouseMove(Sender: TObject; Shift: TShiftState; X,
  55.       Y: Integer);
  56.     procedure Button8MouseMove(Sender: TObject; Shift: TShiftState; X,
  57.       Y: Integer);
  58.   private
  59.     { Private declarations }
  60.   public
  61.     { Public declarations }
  62.   end;
  63.  
  64. var
  65.   Form5: TForm5;
  66.   I:INTEGER;
  67.   go:Boolean;
  68.  
  69. implementation
  70.  
  71. {$R *.DFM}
  72.  
  73. procedure TForm5.BitBtn1Click(Sender: TObject);
  74. begin
  75. CLOSE;
  76. end;
  77.  
  78. procedure TForm5.Button2Click(Sender: TObject);
  79. begin
  80. MEMO1.CLEAR;
  81. MEMO2.CLEAR;
  82. MEMO1.LINES.LOADFROMFILE('\TEXT\S2.TXT');
  83. MEMO2.LINES.LOADFROMFILE('\TEXT\S2.TXT');
  84. memo1.visible:=False;
  85. MEMO1.LEFT:=MEMO1.LEFT+200;
  86. go:=true;
  87. end;
  88.  
  89. procedure TForm5.Button1Click(Sender: TObject);
  90. begin
  91. MEMO1.CLEAR;
  92. MEMO2.CLEAR;
  93. MEMO1.LINES.LOADFROMFILE('\TEXT\S1.TXT');
  94. MEMO2.LINES.LOADFROMFILE('\TEXT\S1.TXT');
  95. memo1.visible:=False;
  96. MEMO1.LEFT:=MEMO1.LEFT+200;
  97. go:=true;
  98. end;
  99.  
  100. procedure TForm5.Button3Click(Sender: TObject);
  101. begin
  102. MEMO1.CLEAR;
  103. MEMO2.CLEAR;
  104. MEMO1.LINES.LOADFROMFILE('\TEXT\S3.TXT');
  105. MEMO2.LINES.LOADFROMFILE('\TEXT\S3.TXT');
  106. memo1.visible:=False;
  107. MEMO1.LEFT:=MEMO1.LEFT+200;
  108. go:=true;
  109. end;
  110.  
  111. procedure TForm5.Button4Click(Sender: TObject);
  112. begin
  113. MEMO1.CLEAR;
  114. MEMO2.CLEAR;
  115. MEMO1.LINES.LOADFROMFILE('\TEXT\S4.TXT');
  116. MEMO2.LINES.LOADFROMFILE('\TEXT\S4.TXT');
  117. memo1.visible:=False;
  118. MEMO1.LEFT:=MEMO1.LEFT+200;
  119. go:=true;
  120. end;
  121.  
  122. procedure TForm5.Button5Click(Sender: TObject);
  123. begin
  124. MEMO1.CLEAR;
  125. mEMO2.CLEAR;
  126. MEMO1.LINES.LOADFROMFILE('\TEXT\S5.TXT');
  127. MEMO2.LINES.LOADFROMFILE('\TEXT\S5.TXT');
  128. memo1.visible:=False;
  129. MEMO1.LEFT:=MEMO1.LEFT+200;
  130. go:=true;
  131. end;
  132.  
  133. procedure TForm5.Button6Click(Sender: TObject);
  134. begin
  135. MEMO1.CLEAR;
  136. MEMO2.CLEAR;
  137. MEMO1.LINES.LOADFROMFILE('\TEXT\S6.TXT');
  138. MEMO2.LINES.LOADFROMFILE('\TEXT\S6.TXT');
  139. memo1.visible:=False;
  140. MEMO1.LEFT:=MEMO1.LEFT+200;
  141. go:=true;
  142. end;
  143.  
  144. procedure TForm5.Button7Click(Sender: TObject);
  145. begin
  146. MEMO1.CLEAR;
  147. MEMO2.CLEAR;
  148. MEMO1.LINES.LOADFROMFILE('\TEXT\S7.TXT');
  149. MEMO2.LINES.LOADFROMFILE('\TEXT\S7.TXT');
  150. memo1.visible:=False;
  151. MEMO1.LEFT:=MEMO1.LEFT+200;
  152. go:=true;
  153. end;
  154.  
  155. procedure TForm5.Button8Click(Sender: TObject);
  156. begin
  157. MEMO1.CLEAR;
  158. MEMO2.CLEAR;
  159. MEMO1.LINES.LOADFROMFILE('\TEXT\S8.TXT');
  160. MEMO2.LINES.LOADFROMFILE('\TEXT\S8.TXT');
  161. memo1.visible:=False;
  162. MEMO1.LEFT:=MEMO1.LEFT+200;
  163. go:=true;
  164. end;
  165.  
  166. procedure TForm5.BitBtn2Click(Sender: TObject);
  167. VAR
  168. MYFILE:TEXTFILE;
  169. LI:INTEGER;
  170. begin
  171.   AssignPrn(MyFile);
  172.   Rewrite(MyFile);
  173.   Writeln(MyFile, ' ');
  174.   Writeln(MyFile, ' ');
  175.   Writeln(MyFile, ' ');
  176.   Writeln(MyFile, '   '+LABEL1.CAPTION);
  177.   Writeln(MyFile, ' ');
  178.   FOR LI:=0 TO MEMO2.LINES.COUNT-1 DO
  179.   Writeln(MyFile, '    '+MEMO2.LINES[LI]);
  180.   System.CloseFile(MyFile);
  181. end;
  182.  
  183. procedure TForm5.FormShow(Sender: TObject);
  184. begin
  185. image1.picture.loadfromfile('\spec.bmp');
  186. end;
  187.  
  188. procedure TForm5.Timer1Timer(Sender: TObject);
  189. begin
  190. if go then
  191. begin
  192. go:=False;
  193. memo1.visible:=true;
  194. FOR I:=0 TO 50 DO
  195. MEMO1.LEFT:=MEMO1.LEFT-4;
  196. MEMO1.LEFT:=9;
  197. end;
  198.  
  199. end;
  200.  
  201. procedure TForm5.BitBtn2MouseMove(Sender: TObject; Shift: TShiftState; X,
  202.   Y: Integer);
  203. begin
  204. bitbtn2.setfocus;
  205. end;
  206.  
  207. procedure TForm5.BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
  208.   Y: Integer);
  209. begin
  210. bitbtn1.setfocus;
  211. end;
  212.  
  213. procedure TForm5.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  214.   Y: Integer);
  215. begin
  216. Button1.setfocus;
  217. end;
  218.  
  219. procedure TForm5.Button2MouseMove(Sender: TObject; Shift: TShiftState; X,
  220.   Y: Integer);
  221. begin
  222. Button2.setfocus;
  223. end;
  224.  
  225. procedure TForm5.Button3MouseMove(Sender: TObject; Shift: TShiftState; X,
  226.   Y: Integer);
  227. begin
  228. Button3.setfocus;
  229. end;
  230.  
  231. procedure TForm5.Button4MouseMove(Sender: TObject; Shift: TShiftState; X,
  232.   Y: Integer);
  233. begin
  234. Button4.setfocus;
  235. end;
  236.  
  237. procedure TForm5.Button5MouseMove(Sender: TObject; Shift: TShiftState; X,
  238.   Y: Integer);
  239. begin
  240. Button5.setfocus;
  241. end;
  242.  
  243. procedure TForm5.Button6MouseMove(Sender: TObject; Shift: TShiftState; X,
  244.   Y: Integer);
  245. begin
  246. Button6.setfocus;
  247. end;
  248.  
  249. procedure TForm5.Button7MouseMove(Sender: TObject; Shift: TShiftState; X,
  250.   Y: Integer);
  251. begin
  252. Button7.setfocus;
  253. end;
  254.  
  255. procedure TForm5.Button8MouseMove(Sender: TObject; Shift: TShiftState; X,
  256.   Y: Integer);
  257. begin
  258. Button8.setfocus;
  259. end;
  260.  
  261. end.
  262.